home *** CD-ROM | disk | FTP | other *** search
/ Aminet 39 / Aminet 39 (2000)(Schatztruhe)[!][Oct 2000].iso / Aminet / gfx / edit / PfPaint_V2.lha / PerfectPaint / rexx / Anim / FadeInBlack.rx next >
Encoding:
Text File  |  1999-03-04  |  832 b   |  64 lines
  1. /*     arexx Script 
  2.     Fade in Black
  3. */
  4.  
  5.     options results
  6.     parse ARG Port b
  7.     
  8.     ADDRESS value Port
  9.  
  10.     pp_CountFrames
  11.     nb=result
  12.     if nb<2 then do
  13.         pp_Warn 'Make*an*Anim*first.'
  14.         EXIT
  15.     end
  16.  
  17.     pp_GetWidth
  18.     w=result
  19.     pp_GetHeight
  20.     h=result
  21.  
  22.     pp_DialogInit 250 100 "*Fade*in*black*" 3
  23.         pp_Slider 0 100 5 100 16 "Start*Frame*#" 1 1 nb 1
  24.         pp_Slider 1 100 25 100 16 "End*Frame*#" 1 1 nb nb
  25.         pp_Cycle 2 100 45 100 16 "Mode" 1 "Fade*Out|Fade*In" 0
  26.     pp_Dialog
  27.     rc=result
  28.     if rc=0 then
  29.         do
  30.             EXIT
  31.         end        
  32.         
  33.     pp_GetDialog 0
  34.     s0=result
  35.  
  36.     pp_GetDialog 1
  37.     s1=result
  38.  
  39.     pp_GetDialog 2
  40.     fade=result
  41.  
  42.     sp=100/(s1-s0+1)
  43.     pp_EffectOn
  44.  
  45.     pp_GotoFrame s0
  46.  
  47.     if fade=1 then
  48.     DO
  49.     do i=sp to 100 by sp
  50.         pp_Shade i
  51.         pp_BoxF 0 0 w h
  52.         pp_NextFrame
  53.     end 
  54.     END
  55.     ELSE
  56.     sp2=sp*-1
  57.     DO
  58.     do i=100 to sp by sp2
  59.         pp_Shade i
  60.         pp_BoxF 0 0 w h
  61.         pp_NextFrame
  62.     end 
  63.     END
  64.